*       *********************************************************
*       *                                                         
*       * 04/12/2001            AATEST.MPR              21:27:47  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2001 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _msm_file OF _MSYSMENU PROMPT "\<File" COLOR SCHEME 3 ;
	NEGOTIATE  LEFT, NONE ;
	KEY ALT+F, ""
DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "\<Edit" COLOR SCHEME 3 ;
	NEGOTIATE  NONE, LEFT ;
	KEY ALT+E, "" ;
	MESSAGE "Edits text or current selection"
DEFINE PAD _msm_record OF _MSYSMENU PROMPT "\<Record" COLOR SCHEME 3 ;
	NEGOTIATE  NONE, LEFT ;
	KEY ALT+R, "ALT+R" ;
	MESSAGE "Record options"
DEFINE PAD _msm_playback OF _MSYSMENU PROMPT "\<Playback" COLOR SCHEME 3 ;
	NEGOTIATE  NONE, LEFT ;
	KEY ALT+P, "ALT+P" ;
	MESSAGE "Playback options"
DEFINE PAD _msm_help OF _MSYSMENU PROMPT "\<Help" COLOR SCHEME 3 ;
	NEGOTIATE  NONE, RIGHT ;
	KEY ALT+H, "" ;
	MESSAGE "Displays Help on AA Test Harness"
ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP _mfile
ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP _medit
ON PAD _msm_record OF _MSYSMENU ACTIVATE POPUP record
ON PAD _msm_playback OF _MSYSMENU ACTIVATE POPUP playback
ON PAD _msm_help OF _MSYSMENU ACTIVATE POPUP _msystem

DEFINE POPUP _mfile MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _mfile PROMPT "\<VFP Instance" ;
	SKIP FOR NOT (TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdVFP.Enabled) ;
	MESSAGE "Opens new VFP Instance"
DEFINE BAR 2 OF _mfile PROMPT "E\<xit" ;
	SKIP FOR NOT (TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdExit.Enabled) ;
	PICTRES _mfi_quit ;
	MESSAGE "Quits"
ON SELECTION BAR 1 OF _mfile =TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdVFP.click()
ON SELECTION BAR 2 OF _mfile =TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdExit.click()

DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF _medit PROMPT "\<Undo" ;
	KEY CTRL+Z, "Ctrl+Z" ;
	PICTRES _med_undo ;
	MESSAGE "Undoes the last command or action"
DEFINE BAR _med_redo OF _medit PROMPT "Re\<do" ;
	KEY CTRL+R, "Ctrl+R" ;
	PICTRES _med_redo ;
	MESSAGE "Repeats the last command or action"
DEFINE BAR _med_sp100 OF _medit PROMPT "\-" ;
	PICTRES _med_sp100
DEFINE BAR _med_cut OF _medit PROMPT "Cu\<t" ;
	KEY CTRL+X, "Ctrl+X" ;
	PICTRES _med_cut ;
	MESSAGE "Removes the selection and places it onto the Clipboard"
DEFINE BAR _med_copy OF _medit PROMPT "\<Copy" ;
	KEY CTRL+C, "Ctrl+C" ;
	PICTRES _med_copy ;
	MESSAGE "Copies the selection onto the Clipboard"
DEFINE BAR _med_paste OF _medit PROMPT "\<Paste" ;
	KEY CTRL+V, "Ctrl+V" ;
	PICTRES _med_paste ;
	MESSAGE "Pastes the contents of the Clipboard"
DEFINE BAR _med_clear OF _medit PROMPT "Cle\<ar" ;
	PICTRES _med_clear ;
	MESSAGE "Removes the selection and does not place it onto the Clipboard"
DEFINE BAR _med_sp200 OF _medit PROMPT "\-" ;
	PICTRES _med_sp200
DEFINE BAR _med_slcta OF _medit PROMPT "Se\<lect All" ;
	KEY CTRL+A, "Ctrl+A" ;
	PICTRES _med_slcta ;
	MESSAGE "Selects all text or items in the current window"

DEFINE POPUP record MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF record PROMPT "\<Record" ;
	SKIP FOR NOT(TYPE("_screen.activeform.parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdRecord.Enabled)
DEFINE BAR 2 OF record PROMPT "\<Pause" ;
	SKIP FOR NOT (TYPE("_screen.activeform.parent.otoolbar.BaseClass") = "C" AND _screen.activeform.parent.otoolbar.chkPause.Enabled)
DEFINE BAR 3 OF record PROMPT "\<Stop" ;
	SKIP FOR NOT (TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdStop.Enabled)
ON SELECTION BAR 1 OF record =TYPE("_screen.activeform.parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdRecord.Click()
ON SELECTION BAR 2 OF record =TYPE("_screen.activeform.parent.otoolbar.BaseClass") = "C" AND _screen.activeform.parent.otoolbar.chkPause.Click()
ON SELECTION BAR 3 OF record =TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdStop.Click()

DEFINE POPUP playback MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF playback PROMPT "\<Play" ;
	SKIP FOR NOT (TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdPlay.Enabled)
DEFINE BAR 2 OF playback PROMPT "\<Edit Script" ;
	SKIP FOR NOT(TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdOpenLog.Enabled)
DEFINE BAR 3 OF playback PROMPT "\<Insert script" ;
	SKIP FOR NOT(TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdInsScript.Enabled)
ON SELECTION BAR 1 OF playback =TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdPlay.Click()
ON SELECTION BAR 2 OF playback =TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdOpenLog.Click()
ON SELECTION BAR 3 OF playback =TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdInsScript.Click()

DEFINE POPUP _msystem MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _msystem PROMPT "Active Accessibility \<Test Harness" ;
	KEY F1, "F1" ;
	SKIP FOR NOT(TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdHelp.Enabled) ;
	PICTRES _mtl_debugger
ON SELECTION BAR 1 OF _msystem = TYPE("_screen.activeform.Parent.otoolbar.BaseClass") = "C" AND _screen.activeform.Parent.otoolbar.cmdHelp.Click()